home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
EXPANDAL.LI
< prev
next >
Wrap
Text File
|
1993-12-26
|
222b
|
6 lines
# expandal() expand all numerators and denominators
# e.g. expandal((a+b)^2/(c+d)^2) gives (a^2+2*a*b+c^2)/(c^2+2*c*d+d^2)
expandal(a_+b_) := expandal(a)+expandal(b)
expandal(x_) := expand(nume(x))/expand(deno(x))